home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 243
- Top = 111
- Width = 416
- Height = 334
- ActiveControl = StatusLine
- Caption = 'Mail eXtension DEMO for DELPHI'
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- FormStyle = fsMDIForm
- Menu = MainMenu1
- PixelsPerInch = 96
- Position = poDefault
- WindowMenu = Window1
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 264
- Width = 410
- Height = 26
- Align = alBottom
- BorderWidth = 1
- TabOrder = 0
- object StatusLine: TPanel
- Left = 2
- Top = 2
- Width = 345
- Height = 22
- Align = alClient
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- BorderWidth = 1
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object Panel2: TPanel
- Left = 347
- Top = 2
- Width = 61
- Height = 22
- Align = alRight
- Alignment = taLeftJustify
- BevelOuter = bvLowered
- TabOrder = 1
- end
- end
- object SpeedPanel: TPanel
- Left = 0
- Top = 0
- Width = 410
- Height = 30
- Align = alTop
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- object OpenBtn: TSpeedButton
- Left = 7
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Display your INBOX'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
- 7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
- 3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
- B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
- 338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
- 338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
- FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
- 8888888333333330000033333333333333388888333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = OpenBtnClick
- end
- object CopyBtn: TSpeedButton
- Left = 40
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Create a new message'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333FFFFFFFFFF33333333300000000003333333333888888888
- 8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333
- 33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333
- 3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888
- F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888
- 888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F
- 8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333
- 338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F
- 777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333
- 33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003
- 33333333338FFFFFF88333333333330000000033333333333388888888333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = CopyBtnClick
- end
- object ExitBtn: TSpeedButton
- Left = 88
- Top = 2
- Width = 25
- Height = 25
- Hint = 'Exit|'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
- 777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
- 33888888888888877F7F788888888888888F333FF88844444400888FFF444444
- 88888888888333888883333334D5007FFF433333333338F888F3338F33333333
- 345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
- 78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
- FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
- 3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
- 3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
- 345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
- F8FFFF8F33333333344444444443333333333888888888833333333333333333
- 3333333333333333FFFFFF333333333333300000033333333333333888888F33
- 333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
- 33333338888883333333}
- NumGlyphs = 2
- OnClick = FileExitItemClick
- end
- end
- object MXForm1: TMXForm
- Left = 16
- Top = 48
- Width = 293
- Height = 18
- MXFormName = 'FormTag4'
- end
- object MXSession1: TMXSession
- Left = 372
- Top = 40
- Width = 30
- Height = 30
- Custom = 'Push ... for Custom Properties'
- end
- object MainMenu1: TMainMenu
- Left = 4
- Top = 220
- object File1: TMenuItem
- Caption = '&Actions'
- Hint = 'File related commands'
- object InboxCmd: TMenuItem
- Caption = '&Inbox'
- Hint = 'Display a Message Inbox'
- OnClick = InboxCmdClick
- end
- object NewMessageCmd: TMenuItem
- Caption = 'New Message'
- Hint = 'Create a new message'
- OnClick = NewMessageCmdClick
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object FileExitItem: TMenuItem
- Caption = 'E&xit'
- Hint = 'Exit the application'
- OnClick = FileExitItemClick
- end
- end
- object Window1: TMenuItem
- Caption = '&Window'
- Hint = 'Window related commands such as Tile and Cascade'
- object WindowCascadeItem: TMenuItem
- Caption = '&Cascade'
- Hint = 'Arrange windows to overlap'
- OnClick = WindowCascadeItemClick
- end
- object WindowTileItem: TMenuItem
- Caption = '&Tile'
- Hint = 'Arrange windows without overlap'
- OnClick = WindowTileItemClick
- end
- object WindowArrangeItem: TMenuItem
- Caption = '&Arrange Icons'
- Hint = 'Arrange window icons at bottom of main window'
- OnClick = WindowArrangeItemClick
- end
- object WindowMinimizeItem: TMenuItem
- Caption = '&Minimize All'
- Hint = 'Minimize all windows'
- OnClick = WindowMinimizeItemClick
- end
- end
- end
- end
-